My Neighborhood/My Neighborhood.iso/mac/MacFiles/ExitDry.Dxr/00081.ls

Text File | 1997-11-21 | 696 b | 25 lines

on exitFrame
  global randomized, exitReward, exitRequest, rewardLocs, requestLocs, NewCity, curLoc, HIDELOC, dummyList
  puppetSprite(16, 1)
  if randomized then
    set temp to getOne(NewCity, curLoc)
    set exitReward to getAt(rewardLocs, temp)
    set exitRequest to getAt(requestLocs, temp)
    if exitReward = EMPTY then
      set T to random(count(dummyList))
      set exitReward to getAt(dummyList, T)
    end if
    if (HIDELOC = curLoc) and ((exitRequest = EMPTY) or (exitRequest = " ")) then
      go("FOUND")
    else
      if (exitRequest = EMPTY) or (exitRequest = " ") then
        go("R3+")
      else
        go("Need")
      end if
    end if
  else
    go("R1")
  end if
end